home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / scanlib / scan_compute.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-12-07  |  851 b   |  30 lines
  1. #include <suntool/sunview.h>
  2.  
  3. scan_compute()
  4. {
  5.         int i,j,type,color,s_type,lock_interval_old;
  6.     double *t_x;
  7.         extern int stop,lock_interval,symbol_size;
  8.     extern int scan_col_dim,scan_region_index,scan_n_max,scan_n_stored;
  9.         extern int *scan_type;
  10.         extern double **scan_x;
  11.     extern Pixwin *pw;
  12.         
  13.     stop=0;
  14.         lock_interval_old = lock_interval;
  15.         lock_interval = 0;
  16.  
  17.     for(i=0;i<scan_n_max;i++){
  18.         type = (int) test_dynamics();
  19.         color = (int) scan_type_to_color(type);
  20.         for(j=0;j<scan_col_dim;j++)
  21.             t_x[j] = scan_x[i][j];
  22.         decode_color_symbol(scan_type[i],&color,&s_type);
  23.                 pen_down(scan_region_index,pw,t_x,color,s_type,symbol_size,1);
  24.         *(scan_type+scan_n_stored) = color;
  25.         scan_n_stored++;
  26.         }
  27.         lock_interval_old = lock_interval;
  28.     (void) free_dvector(t_x,0,scan_col_dim-1);
  29. }
  30.